*************************************************************************
***  Nowhere to Hide? Global Policing and the Politics of Extradition ***
***          Replication Do File for Krcmaric's IS Article            ***
*************************************************************************


*** Table 1 ***
use "Krcmaric_IS_Replication_Data", clear
logit bet_signed dp_retained commonlaw crim_law_prop_same s_un_atop auto_regime ccdistance_sqrt pec_log bet_inherited regional_lag notreatyyears notreatyyears2 notreatyyears3 if before_first_bet==1 & year>1839, cluster(ccode)
logit bet_signed dp_retained commonlaw crim_law_prop_same s_un_atop abusive_regime ccdistance_sqrt pec_log bet_inherited regional_lag notreatyyears notreatyyears2 notreatyyears3 if before_first_bet==1 & year>1839, cluster(ccode)
logit bet_signed dp_retained commonlaw crim_law_prop_same s_un_atop political_trials ccdistance_sqrt pec_log bet_inherited regional_lag notreatyyears notreatyyears2 notreatyyears3 if before_first_bet==1 & year>1839, cluster(ccode)


*** Figure 3 ***
use "Krcmaric_IS_Replication_Data", clear
eststo clear 
set scheme s1mono
graph set window fontface "Helvetica"
**Geopolitical alignment
logit bet_signed dp_retained commonlaw crim_law_prop_same s_un_atop auto_regime ccdistance_sqrt pec_log bet_inherited regional_lag notreatyyears notreatyyears2 notreatyyears3 if before_first_bet==1 & year>1839, cluster(ccode)
eststo geopol: margins, at(s_un_atop=(-.5(.05)1)) post
coefplot geopol, at ytitle(Pr(BET signed)) xtitle(Geopolitical Alignment) xlabel(-.5[.25]1) recast(line) lwidth(*2) ciopts(recast(rline) lpattern(dash)) name(geopol, replace)
*Autocratic regime
logit bet_signed dp_retained commonlaw crim_law_prop_same s_un_atop auto_regime ccdistance_sqrt pec_log bet_inherited regional_lag notreatyyears notreatyyears2 notreatyyears3 if before_first_bet==1 & year>1839, cluster(ccode)
eststo auto: margins, at(auto=(.2(.05)1)) post
coefplot auto, at ytitle(Pr(BET signed)) xtitle(Autocratic Regime) xlabel(.2[.2]1) recast(line) lwidth(*2) ciopts(recast(rline) lpattern(dash)) name(auto, replace)
*Human rights violations 
logit bet_signed dp_retained commonlaw crim_law_prop_same s_un_atop abusive_regime ccdistance_sqrt pec_log bet_inherited regional_lag notreatyyears notreatyyears2 notreatyyears3 if before_first_bet==1 & year>1839, cluster(ccode)
eststo abuse: margins, at(abusive_regime=(-3(.05)3)) post
coefplot abuse, at ytitle(Pr(BET signed)) xtitle(Human Rights Violations) xlabel(-3[1]3) ylabel(0[.01].03) recast(line) lwidth(*2) ciopts(recast(rline) lpattern(dash)) name(abuse, replace)
*Political trials
logit bet_signed dp_retained commonlaw crim_law_prop_same s_un_atop political_trials ccdistance_sqrt pec_log bet_inherited regional_lag notreatyyears notreatyyears2 notreatyyears3 if before_first_bet==1 & year>1839, cluster(ccode)
eststo poltri: margins, at(political_trials=(-3(.05)3)) post
coefplot poltri, at ytitle(Pr(BET signed)) xtitle(Political Trials) xlabel(-3[1]3) ylabel(0[.01].03) recast(line) lwidth(*2) ciopts(recast(rline) lpattern(dash)) name(poltri, replace)
*Combine all four graphs
graph combine geopol auto abuse poltri 


